home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / PICTURE / PICTURI2.DIR / 00057.ls < prev    next >
Encoding:
Text File  |  1996-09-05  |  687 b   |  29 lines

  1. on mouseDown
  2.   repeat while the stillDown = 1
  3.     set the locH of sprite 20 to the mouseH
  4.     set the locV of sprite 20 to the mouseV
  5.     if rollOver(9) then
  6.       set the castNum of sprite 9 to the number of member "quitdown"
  7.     else
  8.       set the castNum of sprite 9 to the number of member "quitbox"
  9.     end if
  10.     updateStage()
  11.   end repeat
  12. end
  13.  
  14. on mouseUp
  15.   if rollOver(9) then
  16.     puppetSprite(20, 0)
  17.     set the castNum of sprite 9 to the number of member "quithot"
  18.     updateStage()
  19.     startTimer()
  20.     repeat while the timer < 30
  21.       nothing()
  22.     end repeat
  23.     quit()
  24.   else
  25.     set the castNum of sprite 9 to the number of member "quitbox"
  26.     updateStage()
  27.   end if
  28. end
  29.